home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 9 / FM Towns Free Software Collection 9.iso / fb386 / game / ponex2 / ponex2a.bas next >
BASIC Source File  |  1994-11-16  |  43KB  |  725 lines
  1. 1000 '***** F-BASIC386用二級品ゲームソフト･番外編 *****
  2. 1010 '*****    超難解パズルゲーム「ＰＯＮＥＸ2」  *****
  3. 1020 '*****          PROGRAMMED BY H2SO4          *****
  4. 1030 'Version 1.01A
  5. 1040 '***** 初期設定 *****
  6. 1050 SCREEN@ 0:CONSOLE 0,25,0:CLS:RESTORE 3630:GOSUB 2760
  7. 1060 PALETTE  0,[  0,  0,  0],1:PALETTE  1,[ 48,240, 64],1
  8. 1070 PALETTE  2,[ 16,192,  0],1:PALETTE  3,[ 48,240, 32],1
  9. 1080 PALETTE  4,[176,128,240],1:PALETTE  5,[192,240,176],1
  10. 1090 PALETTE  6,[160,240,144],1:PALETTE  7,[112,144,208],1
  11. 1100 PALETTE  8,[ 16,  0,240],1:PALETTE  9,[ 16, 32,128],1
  12. 1110 PALETTE 10,[  0,240,  0],1:PALETTE 11,[128,240,128],1
  13. 1120 PALETTE 12,[192,  0,  0],1:PALETTE 13,[208,  0,240],1
  14. 1130 PALETTE 14,[240,240,  0],1:PALETTE 15,[240,240,240],1
  15. 1140 DIM HE1%(255),HE2%(255),HE3%(255),HE4%(255),SP%(255),BA%(255)
  16. 1150 DIM ST%(255),MW%(255),WA%(255),CL%(255),HO%(255),S(11,11)
  17. 1160 DIM PAT1%(255),PAT2%(255),PAT3%(255)
  18. 1170 FOR I=0 TO 255:READ HE1%(I):NEXT:FOR I=0 TO 255:READ HE2%(I):NEXT
  19. 1180 FOR I=0 TO 255:READ HE3%(I):NEXT:FOR I=0 TO 255:READ HE4%(I):NEXT
  20. 1190 FOR I=0 TO 255:READ SP%(I):NEXT
  21. 1200 FOR I=0 TO 255:READ BA%(I):NEXT:FOR I=0 TO 255:READ ST%(I):NEXT
  22. 1210 FOR I=0 TO 255:READ MW%(I):NEXT:FOR I=0 TO 255:READ WA%(I):NEXT
  23. 1220 FOR I=0 TO 255:READ CL%(I):NEXT:FOR I=0 TO 255:READ HO%(I):NEXT
  24. 1230 FOR I=0 TO 255:READ PAT1%(I):NEXT:FOR I=0 TO 255:READ PAT2%(I):NEXT
  25. 1240 FOR I=0 TO 255:READ PAT3%(I):NEXT
  26. 1250 '***** 画面作成 *****
  27. 1260 FOR J=0 TO 11:FOR I=0 TO 11:S(I,J)=4:NEXT I,J
  28. 1270 FOR J=-1 TO 13:FOR I=-1 TO 30:GOSUB 2590:NEXT I,J
  29. 1280 SYMBOL(414,47),"HARDBOILED PUZZLE GAME",1,1,5,,,9
  30. 1290 LINE(400,67)-(602,124),PSET,6,BF,1
  31. 1300 GOSUB 2620:SYMBOL(408,75),"ＰＯＮＥＸ２",2,3,%0,,,1
  32. 1310            SYMBOL(405,72),"ＰＯＮＥＸ２",2,3,6,,,1
  33. 1320 SYMBOL(442,130),"From　Ｈ  ＳＯ",1,1,5,,,9
  34. 1330 SYMBOL(509,136),"2",.7!,.7!,5,,,9
  35. 1340 SYMBOL(557,136),"4",.7!,.7!,5,,,9
  36. 1350 SYMBOL(417,348),"ＲＯＵＮＤ",1.5!,2,0,,,1
  37. 1360 SYMBOL(415,346),"ＲＯＵＮＤ",1.5!,2,7,,,9
  38. 1370 SYMBOL(420,190),"[A]･･････RETRY",1,1.5!,4,,,9
  39. 1380 SYMBOL(420,220),"[B]･･････BACK TO TITLE",1,1.5!,4,,,9
  40. 1390 SYMBOL(420,250),"[RUN]････NEXT ROUND",1,1.5!,4,,,9
  41. 1400 SYMBOL(420,280),"[SEL]････GAME END",1,1.5!,4,,,9
  42. 1410 '***** ＤＥＭＯ *****
  43. 1420 FOR J=6 TO 10:FOR I=1 TO 10:GOSUB 2580:NEXT I,J
  44. 1430 FOR J=1 TO 5:FOR I=1 TO 10:GOSUB 2550:NEXT I,J
  45. 1440 Y=5:FOR X=10 TO 6 STEP -.5!:GOSUB 2530
  46. 1450 I=X-1:J=5:GOSUB 2600
  47. 1460 WAIT 15:GOSUB 2540:NEXT X
  48. 1470 I=5:GOSUB 2600:X=6:GOSUB 2500
  49. 1480 SYMBOL(128,92),"ＰＯＮＥＸ２",2,4,5,,,9
  50. 1490 FOR I=1 TO 10:SYMBOL(I*32+40,70),"★",1,1,6
  51. 1500               SYMBOL(I*32+40,160),"★",1,1,6:NEXT
  52. 1510 SYMBOL(150,300),"HIT [RUN] TRIGGER!",1,1.5!,4,,,9
  53. 1520 '***** DATA READING *****
  54. 1530 RESTORE 3070:RO=1
  55. 1540 GOSUB 2180
  56. 1550 IF PTRIG(1)<>4 THEN 1550
  57. 1560 GOSUB 2420:GOSUB 2620
  58. 1570 LOCATE 20,11:PRINT SPC(20);
  59. 1580 FOR J=1 TO 10:READ SA$(J):NEXT:READ XA:READ YA
  60. 1590 FOR J=1 TO 10:FOR I=1 TO 10:S(I,J)=VAL(MID$(SA$(J),I,1))
  61. 1600 SS=S(I,J):ON SS+1 GOSUB 2550,2560,2570,2580,2590,2600,2610
  62. 1610 NEXT I,J
  63. 1620 X=XA:Y=YA:HE=1:GOSUB 2490
  64. 1630 '***** メインルーチン *****
  65. 1640 WAIT 10
  66. 1650 IF PTRIG(1)=1 THEN 2240
  67. 1660 IF PTRIG(1)=2 THEN 3040
  68. 1670 IF PTRIG(1)=4 THEN 2720
  69. 1680 IF PTRIG(1)=8 THEN CLS:END
  70. 1690 XX=(PAD(1)=7)-(PAD(1)=3)
  71. 1700 YY=(PAD(1)=1)-(PAD(1)=5)
  72. 1710 IF XX=0 AND YY=0 THEN 1640
  73. 1720 IF XX=1 THEN HE=3 ELSE IF XX=-1 THEN HE=4
  74. 1730 IF YY=1 THEN HE=1 ELSE IF YY=-1 THEN HE=2
  75. 1740 SS=S(X+XX,Y+YY)
  76. 1750 ON SS+1 GOSUB 1800,1850,1910,1990,2070,2090,2070
  77. 1760 IF F=1 GOTO 2670
  78. 1770 GOTO 1640
  79. 1780 '***** サブルーチン *****
  80. 1790 '=== スペース ===
  81. 1800 GOSUB 2370:GOSUB 2540:X=X+XX/2:Y=Y+YY/2:GOSUB 2490
  82. 1810 WAIT 10
  83. 1820 GOSUB 2540:X=X+XX/2:Y=Y+YY/2:GOSUB 2490
  84. 1830 RETURN
  85. 1840 '=== バルーン ===
  86. 1850 GOSUB 2380:GOSUB 2540:I=X+XX:J=Y+YY:GOSUB 2550
  87. 1860 X=X+XX/2:Y=Y+YY/2:GOSUB 2490
  88. 1870 WAIT 10
  89. 1880 GOSUB 2540:X=X+XX/2:Y=Y+YY/2:GOSUB 2490
  90. 1890 S(X,Y)=0:RETURN
  91. 1900 '=== ブロック ===
  92. 1910 IF S(X+XX*2,Y+YY*2)<>0 THEN GOSUB 2390:GOSUB 2490:RETURN
  93. 1920 GOSUB 2370:GOSUB 2540:X=X+XX/2:Y=Y+YY/2
  94. 1930 GOSUB 2490:I=X+XX:J=Y+YY:GOSUB 2570
  95. 1940 WAIT 10
  96. 1950 GOSUB 2540:X=X+XX/2:Y=Y+YY/2:GOSUB 2490
  97. 1960 I=X+XX:J=Y+YY:GOSUB 2570
  98. 1970 S(X,Y)=0:S(I,J)=2:RETURN
  99. 1980 '=== Ｍウォール ===
  100. 1990 IF S(X+XX*2,Y+YY*2)<>0 THEN GOSUB 2390:GOSUB 2490:RETURN
  101. 2000 GOSUB 2370:GOSUB 2540:X=X+XX/2:Y=Y+YY/2
  102. 2010 GOSUB 2490:I=X+XX:J=Y+YY:GOSUB 2580
  103. 2020 WAIT 10
  104. 2030 GOSUB 2540:X=X+XX/2:Y=Y+YY/2:GOSUB 2490
  105. 2040 I=X+XX:J=Y+YY:GOSUB 2590
  106. 2050 S(X,Y)=0:S(I,J)=4:RETURN
  107. 2060 '=== ウォール ===
  108. 2070 GOSUB 2390:GOSUB 2490:RETURN
  109. 2080 '=== ストーン ===
  110. 2090 IF S(X+XX*2,Y+YY*2)=6 THEN F=1:RETURN
  111. 2100 IF S(X+XX*2,Y+YY*2)<>0 THEN GOSUB 2390:GOSUB 2490:RETURN
  112. 2110 GOSUB 2370:GOSUB 2540:X=X+XX/2:Y=Y+YY/2
  113. 2120 GOSUB 2490:I=X+XX:J=Y+YY:GOSUB 2600
  114. 2130 WAIT 10
  115. 2140 GOSUB 2540:X=X+XX/2:Y=Y+YY/2:GOSUB 2490
  116. 2150 I=X+XX:J=Y+YY:GOSUB 2600
  117. 2160 S(X,Y)=0:S(I,J)=5:RETURN
  118. 2170 '***** 表示 *****
  119. 2180 LINE(540,342)-(585,382),PSET,0,BF
  120. 2190 IF RO>9 THEN GOSUB 2220 ELSE GOSUB 2210
  121. 2200 RETURN
  122. 2210 SYMBOL(545,346),STR$(RO),1.5!,2,7,,,1:RETURN
  123. 2220 SYMBOL(537,346),STR$(RO),1.5!,2,7,,,1:RETURN
  124. 2230 '***** ギブアップ *****
  125. 2240 GOSUB 2330:FOR J=0 TO 2
  126. 2250 HE=1:GOSUB 2490:WAIT 10
  127. 2260 HE=3:GOSUB 2490:WAIT 10
  128. 2270 HE=2:GOSUB 2490:WAIT 10
  129. 2280 HE=4:GOSUB 2490:WAIT 10
  130. 2290 NEXT J
  131. 2300 HE=1:GOSUB 2490:WAIT 10
  132. 2310 HE=3:GOSUB 2490:WAIT 25
  133. 2320 T=0:GOTO 2350
  134. 2330 PLAY OFF:A$="@14T100O5L12CC<BBAAGGAABB>L4C"
  135. 2340 B$="@14T100O4L12CC<BBAAGGAABB>L4C":PLAY A$,B$:RETURN
  136. 2350 GOSUB 2620:GOTO 1590
  137. 2360 '***** 効果音 *****
  138. 2370 PLAY OFF:PLAY "@14T100O3L32CD","@14T100O4L32CD":RETURN
  139. 2380 PLAY OFF:PLAY "@37V15T100O2L16CV10","@37V15T100O3L16CV10":RETURN
  140. 2390 PLAY OFF:PLAY "@14T100O2L32CD","@14T100O3L32CD":RETURN
  141. 2400 '***** 音楽 *****
  142. 2410 PLAY OFF:PLAY "@14T200O2L6CL16CL6DL16DL6EL16EL6FL16FL4E<G>L2C":RETURN
  143. 2420 PLAY OFF:A$="@14T200O4L4CL8CC<BAL4BL8G#L3EL4AL8GAB>C<L4BL8G>L4C"
  144. 2430 B$="@14T200O3L4EL8EEEFL4GL8DL3EL4FL8EFFFL4DL8DL4E":PLAY A$,B$:RETURN
  145. 2440 PLAY OFF:A$="@14T150O4L8C<GL6EL16CL8AAGR8L16AB>C<AGAB>CL8D<B>C"
  146. 2450 B$="@14T150O3L8EEL6EL16CL8FFER8L16FGAFFFGEL8GGE":PLAY A$,B$:RETURN
  147. 2460 *M4:PLAY OFF:A$="@14T200O2L3CL4CL8CL3CL4D#L8DL4DL8CL4CL8<B>L2C"
  148. 2470 B$="@14T200O3L3CL4CL8CL3CL4D#L8DL4DL8CL4CL8<B>L2C":PLAY A$,B$:RETURN
  149. 2480 '***** キャラＰＵＴ *****
  150. 2490 ON HE GOSUB 2500,2510,2520,2530:RETURN
  151. 2500 PUT@A(X*32+32,Y*32+32)-(X*32+63,Y*32+63),HE1%,PSET:RETURN
  152. 2510 PUT@A(X*32+32,Y*32+32)-(X*32+63,Y*32+63),HE2%,PSET:RETURN
  153. 2520 PUT@A(X*32+32,Y*32+32)-(X*32+63,Y*32+63),HE3%,PSET:RETURN
  154. 2530 PUT@A(X*32+32,Y*32+32)-(X*32+63,Y*32+63),HE4%,PSET:RETURN
  155. 2540 PUT@A(X*32+32,Y*32+32)-(X*32+63,Y*32+63),SP%,PSET:RETURN
  156. 2550 PUT@A(I*32+32,J*32+32)-(I*32+63,J*32+63),SP%,PSET:RETURN
  157. 2560 PUT@A(I*32+32,J*32+32)-(I*32+63,J*32+63),BA%,PSET:RETURN
  158. 2570 PUT@A(I*32+32,J*32+32)-(I*32+63,J*32+63),ST%,PSET:RETURN
  159. 2580 PUT@A(I*32+32,J*32+32)-(I*32+63,J*32+63),MW%,PSET:RETURN
  160. 2590 PUT@A(I*32+32,J*32+32)-(I*32+63,J*32+63),WA%,PSET:RETURN
  161. 2600 PUT@A(I*32+32,J*32+32)-(I*32+63,J*32+63),CL%,PSET:RETURN
  162. 2610 PUT@A(I*32+32,J*32+32)-(I*32+63,J*32+63),HO%,PSET:RETURN
  163. 2620 LINE(63,63)-(384,384),PSET,0,B
  164. 2630 FOR I=7 TO 0 STEP -1:FOR J=0 TO 9:II=J*32+I*4
  165. 2640 LINE(64,64+II)-(383,67+II),PSET,0,BF
  166. 2650 NEXT J,I:RETURN
  167. 2660 '***** 面クリア *****
  168. 2670 F=0:GOSUB 2540:X=X+XX/2:Y=Y+YY/2:GOSUB 2490
  169. 2680 I=X+XX:J=Y+YY:GOSUB 2600
  170. 2690 FOR K=0 TO 500:NEXT
  171. 2700 GOSUB 2540:X=X+XX/2:Y=Y+YY/2:GOSUB 2490
  172. 2710 I=X+XX:J=Y+YY:GOSUB 2600
  173. 2720 GOSUB 2440
  174. 2730 RO=RO+1:IF RO=26 THEN GOTO 2820
  175. 2740 GOSUB 2620:GOSUB 2180:GOTO 1580
  176. 2750 '***** オープニング音楽 *****
  177. 2760 PLAY OFF:FOR I=0 TO 2
  178. 2770 PLAY "@14T255L4O3C2.DE2.RFF2FE2.RA2A2G2F2F2.EE2.R"
  179. 2780 PLAY "E2.FG2.RFF2GA2.RA2A2B2>C2D1R1<"
  180. 2790 PLAY "C2.DE2.RFF2FE2.RA2A2G2F2F2.EE2.R"
  181. 2800 PLAY "E2.FG2.RFF2GA2.RD2D2C2<B2>C2.CC2.R@14T120"
  182. 2810 NEXT:RETURN
  183. 2820 '***** エンディング *****
  184. 2830 GOSUB 2630:COLOR 7
  185. 2840 PUT@A(194,165)-(225,196),PAT1%,PSET,2,2
  186. 2850 PUT@A(194,229)-(225,260),PAT3%,PSET,2,2
  187. 2860 LOCATE 11,16:PRINT " 全面クリアーおめでとうございます！"
  188. 2870 LOCATE 11,17:PRINT " このゲームで遊んでいただいてどうも"
  189. 2880 LOCATE 11,18:PRINT " ありがとうございました。"
  190. 2890 SYMBOL(97,102),"ＣＯＮＧＲＡＴＵＬＡＴＩＯＮＳ！",1,3,1,,,49
  191. 2900 SYMBOL(95,100),"ＣＯＮＧＲＡＴＵＬＡＴＩＯＮＳ！",1,3,4,,,49
  192. 2910 WAIT 220
  193. 2920 PLAY OFF
  194. 2930 PLAY "@14T255L4O3C2.DE2.RFF2FE2.RA2A2G2F2F2.EE2.R"
  195. 2940 PLAY "E2.FG2.RFF2GA2.RA2A2B2>C2D1R1<"
  196. 2950 PLAY "C2.DE2.RFF2FE2.RA2A2G2F2F2.EE2.R"
  197. 2960 PLAY "E2.FG2.RFF2GA2.RD2D2C2<B2>C2.CC2.R@14T120"
  198. 2970 WAIT 2900
  199. 2980 PUT@A(194,165)-(225,196),PAT2%,PSET,2,2
  200. 2990 WAIT 150
  201. 3000 PUT@A(194,165)-(225,196),PAT1%,PSET,2,2
  202. 3010 IF PTRIG(1)=0 THEN 3010
  203. 3020 PLAY OFF
  204. 3030 PLAY "@14T120V8","@14T120V8"
  205. 3040 CLS 1:GOSUB 2760:GOTO 1420
  206. 3050 '***** 面データ *****
  207. 3060 '=== ROUND 1～5 ===
  208. 3070 DATA 0334440000,3000400460,0300400131,0030402300,3300400002
  209. 3080 DATA 0102220444,1512002040,1112220040,1012020040,1012002040,2,10
  210. 3090 DATA 0000000020,0404440400,0001200004,2304042440,0304000002
  211. 3100 DATA 0304040200,0032052424,0030140020,0040204040,0604020040,10,10
  212. 3110 DATA 4444444444,1004031046,0350030040,2004030000,4002000442
  213. 3120 DATA 0333143000,3200303043,0440003131,0003040000,4444444444,1,9
  214. 3130 DATA 2003140300,4002000240,0040440003,0230004400,0054204602
  215. 3140 DATA 0030000420,0404042000,2400220231,0000040003,0403040401,10,1
  216. 3150 DATA 4444444444,1210020200,0501300220,0044040020,0046013202
  217. 3160 DATA 3020000330,0442123400,1400402023,0000030030,4444444444,10,9
  218. 3170 '=== ROUND 6～10 ===
  219. 3180 DATA 0003002004,0300203130,2010035440,0230403032,4040020011
  220. 3190 DATA 0300202020,0444400300,0000030040,4404440362,0004440000,1,10
  221. 3200 DATA 4444444444,0200021000,0240240600,0000021000,0030400332
  222. 3210 DATA 4402142404,0000305000,2203044440,0400000000,4444444444,1,9
  223. 3220 DATA 0100020030,0500442033,4442040220,0000004300,3330020020
  224. 3230 DATA 0000302002,4244030040,0000030030,4044040030,6020021404,10,1
  225. 3240 DATA 4444444444,0000030040,2330314050,1004002040,0320104040
  226. 3250 DATA 0030420040,2200600020,0420300030,0400040020,4444444444,1,9
  227. 3260 DATA 0003020000,0400020220,0130020020,0353420442,0030004000
  228. 3270 DATA 4230200000,0000200230,0404404023,0400306040,0000200040,10,10
  229. 3280 '=== ROUND 11～15 ===
  230. 3290 DATA 4444444444,0120002000,0540344440,0040001210,0040444121
  231. 3300 DATA 4122200014,0040404004,0001404006,0000100000,4444444444,10,2
  232. 3310 DATA 0000040020,0600300244,0442040000,2000033404,0400230034
  233. 3320 DATA 0002400404,1140000030,0040022400,0640400450,0000200000,10,1
  234. 3330 DATA 4444444444,0030000446,0202000000,0504322042,0200030040
  235. 3340 DATA 0443300300,0020040000,3204044444,0300044444,4444444444,1,9
  236. 3350 DATA 0000003004,0444403204,0006403000,4044421303,0002004020
  237. 3360 DATA 0332400444,0300043200,2040040050,0020003020,0204020000,10,5
  238. 3370 DATA 4444444444,0301004400,3500000031,0003440003,0003040100
  239. 3380 DATA 0023330000,0021032040,4004002040,0012010006,4444444444,5,5
  240. 3390 '=== ROUND 16～20 ===
  241. 3400 DATA 0040004000,0003000020,0220040400,0022400404,0003040000
  242. 3410 DATA 0004304000,3003000040,0300404500,2041200040,0006444000,5,5
  243. 3420 DATA 0002002000,0444002046,0400303000,0402040000,0200031440
  244. 3430 DATA 0402004440,0400250040,0400400040,0444442440,0000000000,1,10
  245. 3440 DATA 4444444444,0300010400,3104303010,0035020402,1030300010
  246. 3450 DATA 0304030003,4001033040,0303100202,0200164030,4444444444,1,2
  247. 3460 DATA 4030000404,4633030204,0000400400,0404430422,0024000000
  248. 3470 DATA 2400030004,0424000400,0404404402,0102000050,1402040200,5,5
  249. 3480 DATA 0010020020,0403244232,0503004040,0440404000,1020400040
  250. 3490 DATA 0440024031,0000400034,4202400200,0300020460,0004031044,10,1
  251. 3500 '=== ROUND 21～25 ===
  252. 3510 DATA 4444444444,4100004400,0602300230,2130400400,0040000402
  253. 3520 DATA 0030425030,0400003400,2400130033,0004020030,4444444444,10,9
  254. 3530 DATA 0200300004,2404020050,0204044000,0020003342,3400300020
  255. 3540 DATA 0004022000,0444000204,0404304400,0600030002,0004400000,1,1
  256. 3550 DATA 4444444444,0060302020,0440020322,0000303000,0000450420
  257. 3560 DATA 0003132004,2030400400,0130000300,0130400200,4444444444,10,2
  258. 3570 DATA 4020030300,0020200200,2022204460,0040000442,0204200040
  259. 3580 DATA 0202122020,0024003030,0330035300,3004004040,0400300000,1,10
  260. 3590 DATA 4444444444,0202000000,2200444000,0022010332,4403042000
  261. 3600 DATA 0000240000,0300040040,0344503040,0000300246,4444444444,1,2
  262. 3610 '***** PATTERN DATA *****
  263. 3620 '=== 正面 ===
  264. 3630 DATA -26368,-26215,-26215,  1911,-26761,-26215,-26215,   153
  265. 3640 DATA -26224,-26215, 31129, 30583, 30583,-26215,-26215,  2457
  266. 3650 DATA -26224,-26215, 30617, 30583, 30583,-26217,-26215,   153
  267. 3660 DATA -26224,-26215, 30585,    -1, 32767,-26249,-26215,  2457
  268. 3670 DATA -26224,-26215, -2183, 22391, -2185,-26249,-26215,   153
  269. 3680 DATA -26224,-26215, 30583, 21879, 30583,-26761,-26215,  2457
  270. 3690 DATA -28528,-28528, 21879, 21760, 20485,-26763,-28528,   144
  271. 3700 DATA      0,     0,  1399, 20735,  4080,  1909,     0,     0
  272. 3710 DATA -26215,   153, -2697, 21913, -1643,  1909,-26368,-26215
  273. 3720 DATA -26215,  2457, -2697, 21913, -1643,  1909,-26224,-26215
  274. 3730 DATA -26215,   153, 21879, 21845, 21845,  1909,-26224,-26215
  275. 3740 DATA -26215,  2457, 21879, 21845, 21845,  1909,-26224,-26215
  276. 3750 DATA -26215,   153, 22903,  8741, 21794,  1913,-26224,-26215
  277. 3760 DATA -26215,  2457,-26256,  8789,-27310,  2425,-26224,-26215
  278. 3770 DATA -28528,   144,-28528, 21775,-24827,   144,-28528,-28528
  279. 3780 DATA      0,     0,   -16,   255,  -176,   255,     0,     0
  280. 3790 DATA -26368,-26215,    -7, 24575,   -11,-26113,-26215,   153
  281. 3800 DATA -26224,-26215,    -1,    -1,    -1,-24577,-26215,  2457
  282. 3810 DATA -26224, -1639, -1537,    -1,    -1,    -7,-26215,   153
  283. 3820 DATA -26224,  -103,-26209,    -1,-24577,  -103,-26209,  2457
  284. 3830 DATA -26224, -2727,-26215,    -1,-24577, -1639,-26283,   153
  285. 3840 DATA -26224,-27303,-26215,    -6,-25857,-26215,-26283,  2457
  286. 3850 DATA -28528,-28528, -3952, -5457,   -86,-28528,-28528,   144
  287. 3860 DATA      0,     0,  -256,    -1,    -1,    15,     0,     0
  288. 3870 DATA -26215,   153,  -256,    -1,    -1,   159,-26368,-26215
  289. 3880 DATA -26215,  2457,   -16,    -1,    -1,  2559,-26224,-26215
  290. 3890 DATA -26215,   153,   -16,    -1,    -1,   255,-26224,-26215
  291. 3900 DATA -26215,  2457,   -16,    -1,    -1,  2559,-26224,-26215
  292. 3910 DATA -26215,   153, -1648,    -1,    -1,   153,-26224,-26215
  293. 3920 DATA -26215,  2457,-26224,-26130,-24855,  2457,-26224,-26215
  294. 3930 DATA -28528,   144, 16528,-28604, 17472,   144,-28528,-28528
  295. 3940 DATA      0,     0, 17408,  1092, 17476,     4,     0,     0
  296. 3950 '=== 後方 ===
  297. 3960 DATA -26368,-26215,-26215,  1911,-26761,-26215,-26215,   153
  298. 3970 DATA -26224,-26215, 31129, 30583, 30583,-26215,-26215,  2457
  299. 3980 DATA -26224,-26215, 30617, 30583, 30583,-26217,-26215,   153
  300. 3990 DATA -26224,-26215, 30585, 30583, 30583,-26249,-26215,  2457
  301. 4000 DATA -26224,-26215, 30585, 30583, 30583,-26249,-26215,   153
  302. 4010 DATA -26224,-26215, 30583, 30583, 30583,-26761,-26215,  2457
  303. 4020 DATA -28528,-28528, 30583, 30583, 30583,-26761,-28528,   144
  304. 4030 DATA      0,     0, 30583, 30583, 30583,  1911,     0,     0
  305. 4040 DATA -26215,   153, 30583, 30583, 30583,  1911,-26368,-26215
  306. 4050 DATA -26215,  2457, 30583, 30583, 30583,  1911,-26224,-26215
  307. 4060 DATA -26215,   153, 30583, 30583, 30583,  1911,-26224,-26215
  308. 4070 DATA -26215,  2457, 30583, 30583, 30583,  1911,-26224,-26215
  309. 4080 DATA -26215,   153, 30583, 30583, 30583,  1911,-26224,-26215
  310. 4090 DATA -26215,  1369, 30576, 30583, 30583,  2423,-26283,-26215
  311. 4100 DATA -28528,  -176, 30608, 30583, 30583, -3952,-28577,-28528
  312. 4110 DATA      0,  -256,    -1, 30583,  -137,    -1,    15,     0
  313. 4120 DATA -26368, -1639,    -1,    -1,    -1,    -1,-26215,   153
  314. 4130 DATA -26224,-26215,    -7,    -1,    -1,-26113,-26215,  2457
  315. 4140 DATA -26224,-26215, -1639,    -1,    -1,-26215,-26215,   153
  316. 4150 DATA -26224,-26215,-26215,    -1,-24577,-26215,-26215,  2457
  317. 4160 DATA -26224,-26215,-26215,    -1,-24577,-26215,-26215,   153
  318. 4170 DATA -26224,-26215,-26215,    -6,-25857,-26215,-26215,  2457
  319. 4180 DATA -28528,-28528, -3952,-21841,   -86,-28528,-28528,   144
  320. 4190 DATA      0,     0,  -256,    -1,    -1,    15,     0,     0
  321. 4200 DATA -26215,   153,  -256,    -1,    -1,   159,-26368,-26215
  322. 4210 DATA -26215,  2457,   -16,    -1,    -1,  2559,-26224,-26215
  323. 4220 DATA -26215,   153,   -16,    -1,    -1,   255,-26224,-26215
  324. 4230 DATA -26215,  2457,   -16,    -1,    -1,  2559,-26224,-26215
  325. 4240 DATA -26215,   153, -1648,    -1,    -1,   153,-26224,-26215
  326. 4250 DATA -26215,  2457,-26224,-26130,-24855,  2457,-26224,-26215
  327. 4260 DATA -28528,   144, 16528,-28604, 17472,   144,-28528,-28528
  328. 4270 DATA      0,     0, 17408,  1092, 17476,     4,     0,     0
  329. 4280 '=== 右側 ===
  330. 4290 DATA -26368,-26215,-26215, 30617,-26761,-26215,-26215,   153
  331. 4300 DATA -26224,-26215,-26215, 30583, 30583,-26217,-26215,  2457
  332. 4310 DATA -26224,-26215, 31129, 30583,  -137,-26113,-26215,   153
  333. 4320 DATA -26224,-26215, 30617, 30583, 30719,-26761,-26215,  2457
  334. 4330 DATA -26224,-26215, 30585, 30583, 30583,-26761,-26215,   153
  335. 4340 DATA -26224,-26215, 30585, 30583, 30583,-26761,-26215,  2457
  336. 4350 DATA -28528,-28528, 30576, 30583,    85,-28523,-28528,   144
  337. 4360 DATA      0,     0, 30583, 22391,  -251,     5,     0,     0
  338. 4370 DATA -26215,   153, 30583, 21879,-26123,   149,-26368,-26215
  339. 4380 DATA -26215,  2457, 30583, 21879,-26123,  2453,-26224,-26215
  340. 4390 DATA -26215,   153, 30583, 21879, 21845,    85,-26224,-26215
  341. 4400 DATA -26215,  2457, 30583, 21879, 21845,  2453,-26224,-26215
  342. 4410 DATA -26215,   153, 30583, 21879,  8789,   149,-26224,-26215
  343. 4420 DATA -26215,  2457, 30576, 22391,  9557,  2453,-26224,-26215
  344. 4430 DATA -28528,   144, 28816,  1911, 21840,   149,-28528,-28528
  345. 4440 DATA      0,     0,     0,  -256,     0,     0,     0,     0
  346. 4450 DATA -26368,-26215,-26215,    -7,-24577,-26215,-26215,   153
  347. 4460 DATA -26224,-26215,-26215,    -7,    -1,-26215,-26215,  2457
  348. 4470 DATA -26224,-26215,-26215,    -7,    -1,-26209,-26215,   153
  349. 4480 DATA -26224,-26215,-26215,    -7,    -1,-24577,-26215,  2457
  350. 4490 DATA -26224,-26215,-26215,    -7,-24577,    -1,-26283,   153
  351. 4500 DATA -26224,-26215,-26215,    -7,-28417,  -103,-26283,  2457
  352. 4510 DATA -28528,-28528,-28528,-21841,-28502,-28528,-28528,   144
  353. 4520 DATA      0,     0,     0,    -1,  4095,     0,     0,     0
  354. 4530 DATA -26215,   153, -1792,    -1,    -1,   153,-26368,-26215
  355. 4540 DATA -26215,  2457, -1648,    -1,    -1,  2463,-26224,-26215
  356. 4550 DATA -26215,   153,  -112,    -1,    -1,   159,-26224,-26215
  357. 4560 DATA -26215,  2457,  -112,    -1,    -1,  2559,-26224,-26215
  358. 4570 DATA -26215,   153, -1648,    -1,    -1,   153,-26224,-26215
  359. 4580 DATA -26215,  2457,-26224, -4455,-26210,  2457,-26224,-26215
  360. 4590 DATA -28528,   144,-28528, 17472,-28604,   144,-28528,-28528
  361. 4600 DATA      0,     0,     0, 17472,  1092,     0,     0,     0
  362. 4610 '=== 左側 ===
  363. 4620 DATA -26368,-26215,-26215, 30583,-26217,-26215,-26215,   153
  364. 4630 DATA -26224,-26215, 30617, 30583,-26761,-26215,-26215,  2457
  365. 4640 DATA -26224,-26215,    -7, 30591, 30583,-26215,-26215,   153
  366. 4650 DATA -26224,-26215, 30583, 32759, 30583,-26217,-26215,  2457
  367. 4660 DATA -26224,-26215, 30583, 30583, 30583,-26249,-26215,   153
  368. 4670 DATA -26224,-26215, 30583, 30583, 30583,-26249,-26215,  2457
  369. 4680 DATA -28528,-28528,  1424, 30032, 30583,-28553,-28528,   144
  370. 4690 DATA      0,     0, -2816, 21775, 30583,  1911,     0,     0
  371. 4700 DATA -26215,   153,-27392, 22009, 30581,  1911,-26368,-26215
  372. 4710 DATA -26215,  2457,-27248, 22009, 30581,  1911,-26224,-26215
  373. 4720 DATA -26215,   153, 21840, 21845, 30581,  1911,-26224,-26215
  374. 4730 DATA -26215,  2457, 21904, 21845, 30581,  1911,-26224,-26215
  375. 4740 DATA -26215,   153,  9616, 21842, 30581,  1911,-26224,-26215
  376. 4750 DATA -26215,  2457,  9616, 21845, 30583,  2423,-26224,-26215
  377. 4760 DATA -28528,   144, 21904,    85, 30583,   144,-28528,-28528
  378. 4770 DATA      0,     0,     0, -4096,    15,     0,     0,     0
  379. 4780 DATA -26368,-26215,-26215,    -1,-26113,-26215,-26215,   153
  380. 4790 DATA -26224,-26215, -1639,    -1,-26113,-26215,-26215,  2457
  381. 4800 DATA -26224,-26215,  -103,    -1,-26113,-26215,-26215,   153
  382. 4810 DATA -26224,-26215,    -1,    -1,-26113,-26215,-26215,  2457
  383. 4820 DATA -26224, -2727,-24577,    -1,-26113,-26215,-26215,   153
  384. 4830 DATA -26224, -2727,-26209,   -16,-26113,-26215,-26215,  2457
  385. 4840 DATA -28528,-28528,-28528,-21856,-24662,-28528,-28528,   144
  386. 4850 DATA      0,     0,     0,    -1,  4095,     0,     0,     0
  387. 4860 DATA -26215,   153, -1792,    -1,    -1,   153,-26368,-26215
  388. 4870 DATA -26215,  2457,  -112,    -1,    -1,  2457,-26224,-26215
  389. 4880 DATA -26215,   153,  -112,    -1,    -1,   159,-26224,-26215
  390. 4890 DATA -26215,  2457,   -16,    -1,    -1,  2463,-26224,-26215
  391. 4900 DATA -26215,   153, -1648,    -1,    -1,   153,-26224,-26215
  392. 4910 DATA -26215,  2457,-26224, -4455,-26210,  2457,-26224,-26215
  393. 4920 DATA -28528,   144,-28528, 17472,-28604,   144,-28528,-28528
  394. 4930 DATA      0,     0,     0, 17476,    68,     0,     0,     0
  395. 4940 '=== SPACE ===
  396. 4950 DATA -26368,-26215,-26215,   153,-26368,-26215,-26215,   153
  397. 4960 DATA -26224,-26215,-26215,  2457,-26224,-26215,-26215,  2457
  398. 4970 DATA -26224,-26215,-26215,   153,-26224,-26215,-26215,   153
  399. 4980 DATA -26224,-26215,-26215,  2457,-26224,-26215,-26215,  2457
  400. 4990 DATA -26224,-26215,-26215,   153,-26224,-26215,-26215,   153
  401. 5000 DATA -26224,-26215,-26215,  2457,-26224,-26215,-26215,  2457
  402. 5010 DATA -28528,-28528,-28528,   144,-28528,-28528,-28528,   144
  403. 5020 DATA      0,     0,     0,     0,     0,     0,     0,     0
  404. 5030 DATA -26215,   153,-26368,-26215,-26215,   153,-26368,-26215
  405. 5040 DATA -26215,  2457,-26224,-26215,-26215,  2457,-26224,-26215
  406. 5050 DATA -26215,   153,-26224,-26215,-26215,   153,-26224,-26215
  407. 5060 DATA -26215,  2457,-26224,-26215,-26215,  2457,-26224,-26215
  408. 5070 DATA -26215,   153,-26224,-26215,-26215,   153,-26224,-26215
  409. 5080 DATA -26215,  2457,-26224,-26215,-26215,  2457,-26224,-26215
  410. 5090 DATA -28528,   144,-28528,-28528,-28528,   144,-28528,-28528
  411. 5100 DATA      0,     0,     0,     0,     0,     0,     0,     0
  412. 5110 DATA -26368,-26215,-26215,   153,-26368,-26215,-26215,   153
  413. 5120 DATA -26224,-26215,-26215,  2457,-26224,-26215,-26215,  2457
  414. 5130 DATA -26224,-26215,-26215,   153,-26224,-26215,-26215,   153
  415. 5140 DATA -26224,-26215,-26215,  2457,-26224,-26215,-26215,  2457
  416. 5150 DATA -26224,-26215,-26215,   153,-26224,-26215,-26215,   153
  417. 5160 DATA -26224,-26215,-26215,  2457,-26224,-26215,-26215,  2457
  418. 5170 DATA -28528,-28528,-28528,   144,-28528,-28528,-28528,   144
  419. 5180 DATA      0,     0,     0,     0,     0,     0,     0,     0
  420. 5190 DATA -26215,   153,-26368,-26215,-26215,   153,-26368,-26215
  421. 5200 DATA -26215,  2457,-26224,-26215,-26215,  2457,-26224,-26215
  422. 5210 DATA -26215,   153,-26224,-26215,-26215,   153,-26224,-26215
  423. 5220 DATA -26215,  2457,-26224,-26215,-26215,  2457,-26224,-26215
  424. 5230 DATA -26215,   153,-26224,-26215,-26215,   153,-26224,-26215
  425. 5240 DATA -26215,  2457,-26224,-26215,-26215,  2457,-26224,-26215
  426. 5250 DATA -28528,   144,-28528,-28528,-28528,   144,-28528,-28528
  427. 5260 DATA      0,     0,     0,     0,     0,     0,     0,     0
  428. 5270 '=== BALLOON ===
  429. 5280 DATA -26368,-26215,-26215,   153,-26368,-26215,-26215,   153
  430. 5290 DATA -26224,-26215,-26215,  4505,-26351,-26215,-26215,  2457
  431. 5300 DATA -26224,-26215,  6553,-21999,  4522,-26223,-26215,   153
  432. 5310 DATA -26224,-26215,-24295,-21846,-21846,-28390,-26215,  2457
  433. 5320 DATA -26224,  6553,-21855,-21846,-21846,  6826,-26223,   153
  434. 5330 DATA -26224,-24167,-21846,-21846,-21846,-21846,-26342,  2457
  435. 5340 DATA -28528,-22000,-21846,-21846,-21846,-21846,-28246,   144
  436. 5350 DATA      0, -1375,-21841,-21846,-21846,-21846,  6826,     0
  437. 5360 DATA -26215,   -95,-21841,-21846,-21846,-21846,  6826,-26215
  438. 5370 DATA   6553,   -86,-21846,-21846,-21846,-21846,-21846,-26223
  439. 5380 DATA   6553,-21846,-21846,-21846,-21846,-21846,-21846,-26223
  440. 5390 DATA -24167,-21846,-21846,-21846,-21846,-21846,-21846,-26342
  441. 5400 DATA -24167,-21846,-21846,-21846,-21846,-21846,-21846,-26342
  442. 5410 DATA -24167,-21846,-21846,-21846,-21846,-21846,-21846,-26342
  443. 5420 DATA -22000,-21846,-21846,-21846,-21846,-21846,-21846,-28246
  444. 5430 DATA -22000,-21846,-21846,-21846,-21846,-21846,-21846,   426
  445. 5440 DATA -22000,-21846,-21846,-21846,-21846,-21846,-21846,   426
  446. 5450 DATA -22000,-21846,-21846,-21846,-21846,-21846,-21846,   426
  447. 5460 DATA -24176,-21846,-21846,-21846,-21846,-21846,-21846,    26
  448. 5470 DATA -24176,-21846,-21846,-21846,-21846,-21846,-21846,  2330
  449. 5480 DATA -24176,-21846,-21846,-21846,-21846,-21846,-21846,    26
  450. 5490 DATA   6544,-21846,-21846,-21846,-21846,-21846,-21846,  2449
  451. 5500 DATA   4240,-21846,-21846,-21846,-21846,-21846,-21846,   145
  452. 5510 DATA      0,-21855,-21846,-21846,-21846,-21846,  6826,     0
  453. 5520 DATA -26215,-21855,-21846,-21846,-21846,-21846,  6826,-26215
  454. 5530 DATA -26215,-21991,-21846,-21846,-21846,-21846,-28246,-26215
  455. 5540 DATA -26215,-24167,-21846,-21846,-21846,-21846,-26342,-26215
  456. 5550 DATA -26215,  6553,-21855,-21846,-21846,  6826,-26223,-26215
  457. 5560 DATA -26215,   153,-24304,-21846,-21846,   282,-26224,-26215
  458. 5570 DATA -26215,  2457,  6544,-21999,  4522,  2449,-26224,-26215
  459. 5580 DATA -28528,   144,-28528,  4496,-28655,   144,-28528,-28528
  460. 5590 DATA      0,     0,     0,     0,     0,     0,     0,     0
  461. 5600 '=== BLOCK ===
  462. 5610 DATA      0, -8739, -8739, -8739, -8739, -8739, -8739,     0
  463. 5620 DATA  -8960, -8739, -8739, -8739, -8739, -8739, -8739,   221
  464. 5630 DATA  -8752,-26211,-26215,-26215,-26215,-26215, -9831,  2521
  465. 5640 DATA  -8752, -8743, -8739, -8739, -8739, -8739,-25123,  3485
  466. 5650 DATA -25123, -8739, -8739, -8739, -8739, -8739, -8739, -9761
  467. 5660 DATA  -9763, -8739, -8739, -8739, -8739, -8739, -8739,-26115
  468. 5670 DATA  -9763, -8739,    -1,    -1,    -1, -8739, -8739,-26115
  469. 5680 DATA  -9763, -8739, -8737, -8739, -8739, -8743, -8739,-26115
  470. 5690 DATA  -9763, -8739,-26145,-26215, -9831, -8803, -8739,-26115
  471. 5700 DATA  -9763, -8739, -9761, -8739,-25123, -9763, -8739,-26115
  472. 5710 DATA  -9763, -8739, -9761, -8739, -8739, -9761, -8739,-26115
  473. 5720 DATA  -9763, -8739, -9761, -8739, -8739, -9761, -8739,-26115
  474. 5730 DATA  -9763, -8739, -9761, -8739, -8739, -9761, -8739,-26115
  475. 5740 DATA  -9763, -8739, -9761, -8739, -8739, -9761, -8739,-26115
  476. 5750 DATA  -9763, -8739,   -33,    -1,    -1, -9761, -8739,-26115
  477. 5760 DATA  -9763, -8739, -8737, -8739, -8739, -9763, -8739,-26115
  478. 5770 DATA  -9763, -8739,-26145,-26215, -9831, -8803, -8739,-26115
  479. 5780 DATA  -9763, -8739, -9761, -8739,-25123, -9763, -8739,-26115
  480. 5790 DATA  -9763, -8739, -9761, -8739, -8739, -9761, -8739,-26115
  481. 5800 DATA  -9763, -8739, -9761, -8739, -8739, -9761, -8739,-26115
  482. 5810 DATA  -9763, -8739, -9761, -8739, -8739, -9761, -8739,-26115
  483. 5820 DATA  -9763, -8739, -9761, -8739,  -547, -9763, -8739,-26115
  484. 5830 DATA  -9763, -8739,   -33,    -1, -8193, -8803, -8739,-26115
  485. 5840 DATA  -9763, -8739, -8737, -8739, -8739, -8743, -8739,-26115
  486. 5850 DATA  -9763, -8739,-26209,-26215,-26215, -8739, -8739,-26115
  487. 5860 DATA  -9763, -8739, -8739, -8739, -8739, -8739, -8739,-26115
  488. 5870 DATA  -9763, -8739, -8739, -8739, -8739, -8739, -8739,-26115
  489. 5880 DATA -25123, -8739, -8739, -8739, -8739, -8739, -8739,-26209
  490. 5890 DATA  -9776, -8737, -8739, -8739, -8739, -8739,  -547,  2457
  491. 5900 DATA -25200,    -3,    -1,    -1,    -1,    -1,-24577,  2457
  492. 5910 DATA  -9984,-26215,-26215,-26215,-26215,-26215,-26215,   153
  493. 5920 DATA      0,-26211,-26215,-26215,-26215,-26215,-26215,     0
  494. 5930 '=== MOVABLE WALL===
  495. 5940 DATA  17476, 17476, 17476, -1724, 17476, 17476, 17476, -1724
  496. 5950 DATA  17476, 17476, 17476, -1644, 17476, 17476, 17476, -1644
  497. 5960 DATA  30532, 30583, 30583, -1641, 30532, 30583, 30583, -1641
  498. 5970 DATA  30532, 30583, 30583, -1641, 30532, 30583, 30583, -1641
  499. 5980 DATA  30532, 30583, 30583, -1641, 30532, 30583, 30583, -1641
  500. 5990 DATA -26220,-26215,-26215, -1639,-26220,-26215,-26215, -1639
  501. 6000 DATA -26215,-26215,-26215, -1639,-26215,-26215,-26215, -1639
  502. 6010 DATA     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1
  503. 6020 DATA  17476, -1724, 17476, 17476, 17476, -1724, 17476, 17476
  504. 6030 DATA  17476, -1644, 17476, 17476, 17476, -1644, 17476, 17476
  505. 6040 DATA  30583, -1641, 30532, 30583, 30583, -1641, 30532, 30583
  506. 6050 DATA  30583, -1641, 30532, 30583, 30583, -1641, 30532, 30583
  507. 6060 DATA  30583, -1641, 30532, 30583, 30583, -1641, 30532, 30583
  508. 6070 DATA -26215, -1639,-26220,-26215,-26215, -1639,-26220,-26215
  509. 6080 DATA -26215, -1639,-26215,-26215,-26215, -1639,-26215,-26215
  510. 6090 DATA     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1
  511. 6100 DATA  17476, 17476, 17476, -1724, 17476, 17476, 17476, -1724
  512. 6110 DATA  17476, 17476, 17476, -1644, 17476, 17476, 17476, -1644
  513. 6120 DATA  30532, 30583, 30583, -1641, 30532, 30583, 30583, -1641
  514. 6130 DATA  30532, 30583, 30583, -1641, 30532, 30583, 30583, -1641
  515. 6140 DATA  30532, 30583, 30583, -1641, 30532, 30583, 30583, -1641
  516. 6150 DATA -26220,-26215,-26215, -1639,-26220,-26215,-26215, -1639
  517. 6160 DATA -26215,-26215,-26215, -1639,-26215,-26215,-26215, -1639
  518. 6170 DATA     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1
  519. 6180 DATA  17476, -1724, 17476, 17476, 17476, -1724, 17476, 17476
  520. 6190 DATA  17476, -1644, 17476, 17476, 17476, -1644, 17476, 17476
  521. 6200 DATA  30583, -1641, 30532, 30583, 30583, -1641, 30532, 30583
  522. 6210 DATA  30583, -1641, 30532, 30583, 30583, -1641, 30532, 30583
  523. 6220 DATA  30583, -1641, 30532, 30583, 30583, -1641, 30532, 30583
  524. 6230 DATA -26215, -1639,-26220,-26215,-26215, -1639,-26220,-26215
  525. 6240 DATA -26215, -1639,-26215,-26215,-26215, -1639,-26215,-26215
  526. 6250 DATA     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1
  527. 6260 '=== WALL ===
  528. 6270 DATA -17477,-17477,-17477, -3397,-17477,-17477,-17477, -3397
  529. 6280 DATA -17477,-17477,-17477, -3541,-17477,-17477,-17477, -3541
  530. 6290 DATA  13243, 13107, 13107, -3549, 13243, 13107, 13107, -3549
  531. 6300 DATA  13243, 13107, 13107, -3549, 13243, 13107, 13107, -3549
  532. 6310 DATA  13243, 13107, 13107, -3549, 13243, 13107, 13107, -3549
  533. 6320 DATA   8747,  8738,  8738, -3550,  8747,  8738,  8738, -3550
  534. 6330 DATA   8738,  8738,  8738, -3550,  8738,  8738,  8738, -3550
  535. 6340 DATA     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1
  536. 6350 DATA -17477, -3397,-17477,-17477,-17477, -3397,-17477,-17477
  537. 6360 DATA -17477, -3541,-17477,-17477,-17477, -3541,-17477,-17477
  538. 6370 DATA  13107, -3549, 13243, 13107, 13107, -3549, 13243, 13107
  539. 6380 DATA  13107, -3549, 13243, 13107, 13107, -3549, 13243, 13107
  540. 6390 DATA  13107, -3549, 13243, 13107, 13107, -3549, 13243, 13107
  541. 6400 DATA   8738, -3550,  8747,  8738,  8738, -3550,  8747,  8738
  542. 6410 DATA   8738, -3550,  8738,  8738,  8738, -3550,  8738,  8738
  543. 6420 DATA     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1
  544. 6430 DATA -17477,-17477,-17477, -3397,-17477,-17477,-17477, -3397
  545. 6440 DATA -17477,-17477,-17477, -3541,-17477,-17477,-17477, -3541
  546. 6450 DATA  13243, 13107, 13107, -3549, 13243, 13107, 13107, -3549
  547. 6460 DATA  13243, 13107, 13107, -3549, 13243, 13107, 13107, -3549
  548. 6470 DATA  13243, 13107, 13107, -3549, 13243, 13107, 13107, -3549
  549. 6480 DATA   8747,  8738,  8738, -3550,  8747,  8738,  8738, -3550
  550. 6490 DATA   8738,  8738,  8738, -3550,  8738,  8738,  8738, -3550
  551. 6500 DATA     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1
  552. 6510 DATA -17477, -3397,-17477,-17477,-17477, -3397,-17477,-17477
  553. 6520 DATA -17477, -3541,-17477,-17477,-17477, -3541,-17477,-17477
  554. 6530 DATA  13107, -3549, 13243, 13107, 13107, -3549, 13243, 13107
  555. 6540 DATA  13107, -3549, 13243, 13107, 13107, -3549, 13243, 13107
  556. 6550 DATA  13107, -3549, 13243, 13107, 13107, -3549, 13243, 13107
  557. 6560 DATA   8738, -3550,  8747,  8738,  8738, -3550,  8747,  8738
  558. 6570 DATA   8738, -3550,  8738,  8738,  8738, -3550,  8738,  8738
  559. 6580 DATA     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1
  560. 6590 '=== CRYSTAL ===
  561. 6600 DATA -26368,-26215,-26215,   153,-26368,-26215,-26215,   153
  562. 6610 DATA -26224,-26215, 17657, 17476, 17476,-26556,-26215,  2457
  563. 6620 DATA -26224,-26215, 17663, 17476, 17476,-30652,-26215,   153
  564. 6630 DATA -26224, -1639, 17663, 17476, 17476,-30652,-26216,  2457
  565. 6640 DATA -26224,  -103, 17663, 17476, 17476,-30652,-26232,   153
  566. 6650 DATA -26224,    -7, 17663, 17476, 17476,-30652,-26488,  2457
  567. 6660 DATA -28528,    -1, 17663, 17476, 17476,-30652,-30584,   144
  568. 6670 DATA  -4096,    -1, 17663, 17476, 17476,-30652,-30584,     8
  569. 6680 DATA   -103,    -1, 17663, 17476, 17476,-30652,-30584,-26232
  570. 6690 DATA     -7,    -1,-30465,-30584,-30584,-30584,-30584,-26488
  571. 6700 DATA  17481, 17476,-30588,-30584,-30584,-26488,-26472,-26472
  572. 6710 DATA  17481, 17476,-30588,-30584,-30584,-30584,-30327,-26231
  573. 6720 DATA  17481, 17476,-30588,-30584,-30584,-26488,-26472,-26472
  574. 6730 DATA  17481, 17476,-30588,-30584,-30584,-30584,-30327,-26231
  575. 6740 DATA  17472, 17476,-30588,-30584,-30584,-26488,-26472,-26472
  576. 6750 DATA  17472, 17476,-30588,-30584,-30584,-30584,-30327,  2441
  577. 6760 DATA  17472, 17476,-30588,-30584,-30584,-26488,-26472,  2200
  578. 6770 DATA  17472, 17476,-30588,-30584,-30584,-30584,-30327,  2441
  579. 6780 DATA  17472, 17476,-30588,-30584,-30584,-26488,-26472,  2200
  580. 6790 DATA  17472, 17476,-30588,-30584,-30584,-30584,-30327,  2441
  581. 6800 DATA  17472, 17476,-30588,-30584,-30584,-26488,-26472,  2200
  582. 6810 DATA  17472, 17476,-30588,-30584,-30584,-30584,-30327,  2441
  583. 6820 DATA -30592,-30584,-30584,-30584,-30584,  2184,  2313,  2313
  584. 6830 DATA -30720,-30584,-30328,-30327,-30327,-28535,-28528,   144
  585. 6840 DATA -30311,-30584,-26488,-26472,-26472,  2456,  2313,-26359
  586. 6850 DATA -26215,-30584,-30328,-30327,-30327,-28535,-28528,-26224
  587. 6860 DATA -26215,-30583,-26488,-26472,-26472,  2456,  2313,-26215
  588. 6870 DATA -26215,-30567,-30328,-30327,-30327,-28535,-28528,-26215
  589. 6880 DATA -26215,-30311,-26488,-26472,-26472,  2456,-26359,-26215
  590. 6890 DATA -26215,-26215,-30328,-30327,-30327,-28535,-26224,-26215
  591. 6900 DATA -28528,   144,-26496,-26472,-26472,  2456,-28528,-28528
  592. 6910 DATA      0,     0,     0,     0,     0,     0,     0,     0
  593. 6920 '=== DOOR ===
  594. 6930 DATA      0,     0,     0, -4384,  3822,     0,     0,     0
  595. 6940 DATA      0,     0, -4384, -4370, -4370,  3822,     0,     0
  596. 6950 DATA      0, -4608,   238, -8192,    14, -4608,   238,     0
  597. 6960 DATA  -8192,  3822,-22016, -5462,-22002,   170, -4384,    14
  598. 6970 DATA  -4608,-24562,-21846, -5462,-22002,-21846, -8182,   238
  599. 6980 DATA   3808,-21856,-21846, -5462,-22002,-21846,  2730,  3808
  600. 6990 DATA -24338,-21846,-21846, -5462,-22002,-21846,-21846, -4598
  601. 7000 DATA -22002,-21846,-21846, -5462,-22002,-21846,-21846, -8022
  602. 7010 DATA -22002,-21846,-21846, -5462,-22002,-21846,-21846, -5462
  603. 7020 DATA -22002,-21846,-21846, -5462,-22002,-21846,-21846, -5462
  604. 7030 DATA -22002,-21846,-21846, -5462,-22002,-21846,-21846, -5462
  605. 7040 DATA -22002,-21846,-21846, -5462,-22002,-21846,-21846, -5462
  606. 7050 DATA -22002,-21846,-21846, -5462,-22002,-21846,-21846, -5462
  607. 7060 DATA -22002,-21846,-21846, -5462,-22002,-21846,-21846, -5462
  608. 7070 DATA -22002,-21846,-21846, -5462,-22002,-21846,-21846, -5462
  609. 7080 DATA -22002,-21846,-21846, -5462,-22002,-21846,-21846, -5462
  610. 7090 DATA -22002,-21846,-21846, -5462,-22002,-21846,-21846, -5462
  611. 7100 DATA -22002, -4438, -4370, -5462,-22002, -4374,-20754, -5462
  612. 7110 DATA -22002, -4438, -4370, -5472,-22002, -4374,  3822, -5462
  613. 7120 DATA -22002,   170,     0, -5472,-22002,    10,     0, -5462
  614. 7130 DATA -22002,-21846,-21846, -5462,-22002,-21846,-21846, -5462
  615. 7140 DATA -22002,-21846,-21846, -5462,-22002,-21846,-21846, -5462
  616. 7150 DATA -22002,-21846,-21846, -5462,-22002,-21846,-21846, -5462
  617. 7160 DATA -22002,-21846,-21846, -5462,-22002,-21846,-21846, -5462
  618. 7170 DATA -22002,-21846,-21846, -5462,-22002,-21846,-21846, -5462
  619. 7180 DATA -22002,-21846,-21846, -5462,-22002,-21846,-21846, -5462
  620. 7190 DATA -22002,-21846,-21846, -5462,-22002,-21846,-21846, -5462
  621. 7200 DATA -22002,-21846,-21846, -5462,-22002,-21846,-21846, -5462
  622. 7210 DATA -22002,-21846,-21846, -5462,-22002,-21846,-21846, -5462
  623. 7220 DATA  -4370, -4370, -4370, -4370, -4370, -4370, -4370, -4370
  624. 7230 DATA  -8739, -8739, -8739, -8739, -8739, -8739, -8739,-25123
  625. 7240 DATA -26211,-26215,-26215,-26215,-26215,-26215,-26215,-26215
  626. 7250 '=== PAT1 ===
  627. 7260 DATA      0,     0, 28672,   119, 30583,     7,     0,     0
  628. 7270 DATA      0,     0, 30583, 30583, 30583,  1911,     0,     0
  629. 7280 DATA      0, 28672, 30583, 30583, 30583, 30583,     7,     0
  630. 7290 DATA      0, 30464, 30583, 30583, 30583, 30583,   119,     0
  631. 7300 DATA      0, 30576, 30583, 30583, 30583, 30583,  1911,     0
  632. 7310 DATA      0, 30583, 30583, 30583, 30583, 30583, 30583,     0
  633. 7320 DATA  28672, 30583, 30583, 30583, 30583, 30583, 30583,     0
  634. 7330 DATA  28672, 30583,  -137,    -1,    -1, 30591, 30583,     7
  635. 7340 DATA  30464, -2185,    -1, 30583, -2185,    -1, 30583,     7
  636. 7350 DATA  30464,  -137, 30583, 30583, 30583, -2185, 30591,   119
  637. 7360 DATA  30464, 30583, 30583, 30583, 30583, 30583, 30583,   119
  638. 7370 DATA  30576, 30583, 30583, 30583, 30583, 30583, 30583,   119
  639. 7380 DATA  30576, 30583, 30583, 26487, 30583, 30583, 30583,   119
  640. 7390 DATA  30576, 30583, 30583, 26231, 26487, 30583, 30583,   119
  641. 7400 DATA  30576, 30583, 30583, 21863, 26487, 30583, 30583,  1911
  642. 7410 DATA  30576, 26487,     6, 21845,   101, 30464, 30582,  1911
  643. 7420 DATA  30464, 26231, -1808, 21760,  -251, 24824, 30581,  1911
  644. 7430 DATA  30464,  1399,-30577, 21855,-28843,  3977, 30581,  1911
  645. 7440 DATA  30464, 21879,-30321, 21855,-28843, 24457, 30581,  1911
  646. 7450 DATA  30464, 21879,-30321, 21855,-28843, 24457, 30581,  1911
  647. 7460 DATA  30464, 21879, -1793, 21855,  -171, 24568, 30581,  1911
  648. 7470 DATA  30464, 21879,   -11, 21845, -2731, 22015, 30581,  1911
  649. 7480 DATA  30464, 21879, 21845, 26197, 21846, 21845, 30581,  1911
  650. 7490 DATA  30464, 22391, 21845, 21845, 21845, 21845, 30583,  1911
  651. 7500 DATA  30464, 22391, 21845, 21845, 21845, 21845, 30583,  1911
  652. 7510 DATA  28672, 30583, 21845, 21777, 20757, 30293, 30583,  1911
  653. 7520 DATA  28672, 30583, 21863,-21995, 21786, 28773, 30583,   119
  654. 7530 DATA  28672, 30583, 22135, 21845, 21845, 28678, 30583,   119
  655. 7540 DATA      0, 30583, 24583, 21846, 26197, 28672, 30583,     7
  656. 7550 DATA      0, 30576,     7, 26208,   102, 28687, 30583,     7
  657. 7560 DATA      0, 30576, -4089,     6, 26112,   255, 30583,     0
  658. 7570 DATA      0, 30464,  -249, 26213, 22118,  4095,   119,     0
  659. 7580 '=== PAT2 ===
  660. 7590 DATA      0,     0, 28672,   119, 30583,     7,     0,     0
  661. 7600 DATA      0,     0, 30583, 30583, 30583,  1911,     0,     0
  662. 7610 DATA      0, 28672, 30583, 30583, 30583, 30583,     7,     0
  663. 7620 DATA      0, 30464, 30583, 30583, 30583, 30583,   119,     0
  664. 7630 DATA      0, 30576, 30583, 30583, 30583, 30583,  1911,     0
  665. 7640 DATA      0, 30583, 30583, 30583, 30583, 30583, 30583,     0
  666. 7650 DATA  28672, 30583, 30583, 30583, 30583, 30583, 30583,     0
  667. 7660 DATA  28672, 30583,  -137,    -1,    -1, 30591, 30583,     7
  668. 7670 DATA  30464, -2185,    -1, 30583, -2185,    -1, 30583,     7
  669. 7680 DATA  30464,  -137, 30583, 30583, 30583, -2185, 30591,   119
  670. 7690 DATA  30464, 30583, 30583, 30583, 30583, 30583, 30583,   119
  671. 7700 DATA  30576, 30583, 30583, 30583, 30583, 30583, 30583,   119
  672. 7710 DATA  30576, 30583, 30583, 26487, 30583, 30583, 30583,   119
  673. 7720 DATA  30576, 30583, 30583, 26231, 26487, 30583, 30583,   119
  674. 7730 DATA  30576, 30583, 30583, 21863, 26487, 30583, 30583,  1911
  675. 7740 DATA  30576, 26487, 22118, 21845, 26213, 30566, 30582,  1911
  676. 7750 DATA  30464, 26231, 21845, 21845, 21845, 26197, 30581,  1911
  677. 7760 DATA  30464, 21879,     5, 21840,    85, 21760, 30581,  1911
  678. 7770 DATA  30464, 21879,     0, 21760,     5, 20480, 30581,  1911
  679. 7780 DATA  30464, 21879, 21760, 21845, 21845, 20485, 30581,  1911
  680. 7790 DATA  30464, 21879, 21845, 21845, 21845, 21845, 30581,  1911
  681. 7800 DATA  30464, 21879, 21845, 21845, 21845, 21845, 30581,  1911
  682. 7810 DATA  30464, 21879, 21845, 26197, 21846, 21845, 30581,  1911
  683. 7820 DATA  30464, 22391, 21845, 21845, 21845, 21845, 30583,  1911
  684. 7830 DATA  30464, 22391, 21845, 21845, 21845, 21845, 30583,  1911
  685. 7840 DATA  28672, 30583, 21845,-21999, 20762, 30293, 30583,  1911
  686. 7850 DATA  28672, 30583, 21863,-21995, 21786, 28773, 30583,   119
  687. 7860 DATA  28672, 30583, 22135, 21845, 21845, 28678, 30583,   119
  688. 7870 DATA      0, 30583, 24583, 21846, 26197, 28672, 30583,     7
  689. 7880 DATA      0, 30576,     7, 26208,   102, 28687, 30583,     7
  690. 7890 DATA      0, 30576, -4089,     6, 26112,   255, 30583,     0
  691. 7900 DATA      0, 30464,  -249, 26213, 22118,  4095,   119,     0
  692. 7910 '=== PAT3 ===
  693. 7920 DATA      0,     0, 20464, 21845, 17749,  4095,     0,     0
  694. 7930 DATA      0,     0,    -1, 21828, -2987,    -1,     0,     0
  695. 7940 DATA      0,   -16,   -12, 17663,  -188, 17663,  4095,     0
  696. 7950 DATA  -4096,    -1,  -177,    -1,    -1,  -177,    -1,   255
  697. 7960 DATA   -256,    -1, -2817,    -1,    -1,   -12,    -1,  4095
  698. 7970 DATA   -256,    -1, 20479,   -12, 17663,    -1,    -1,  4095
  699. 7980 DATA    -16,    -1,    -1, 17487,  -188,    -1,    -1,    -1
  700. 7990 DATA    -16,    -1,    -1,    -1,    -1,    -1,    -1,    -1
  701. 8000 DATA    -16,    -1,    -1,    -1,    -1,    -1,    -1,    -1
  702. 8010 DATA    -16, 20479,    -1, -1793,    -1,    -1,    -1,    -1
  703. 8020 DATA    -16, 20479,    -1,-28856,    -1,    -1,  -177,    -1
  704. 8030 DATA    -16,    -1,-28684,  -120,    -8,    -1,   -12,    -1
  705. 8040 DATA    -16, 20479,-30476, -1912,  -113,    -1,   -12,  4095
  706. 8050 DATA   -256, 20479,-30577,-30584, -1793,    -1,   -12,  4095
  707. 8060 DATA   -256, 20479,-30584,-30584,-28680,    -1,   -12,   255
  708. 8070 DATA   -256, -2817,-30584,-30584,  -120, 20472,    -1,   255
  709. 8080 DATA  -4096,  -177,-30588,-30584, -1912, 20367,    -1,    15
  710. 8090 DATA  -4096,    -1,-30588,-30584,-30584, 18687,    -1,    15
  711. 8100 DATA  -4096,    -1,-30641,-30584,-30584, -2824,   -12,    15
  712. 8110 DATA      0,    -1,-30465,-30584,-30584, -2936,    -1,     0
  713. 8120 DATA      0,    -1,-31489,-30584,-30584, -2936,    -1,     0
  714. 8130 DATA      0,    -1,-28673,-30584,-30584,  -188,    -1,     0
  715. 8140 DATA      0,   -16, 20479,-30588, 18568,    -1,    -1,     0
  716. 8150 DATA      0,  -192,    -1,-30652, -3004,    -1,  4095,     0
  717. 8160 DATA      0,  -256,    -1, 17487,    -1,    -1,   255,     0
  718. 8170 DATA      0, 17408, 20479, -3004,    -1,    -1,   255,     0
  719. 8180 DATA      0, 20224, 21572, -2731,    -1,    -1,    68,     0
  720. 8190 DATA      0,  -256, 21855,  -171,    -1, 17487,  3941,     0
  721. 8200 DATA      0,  -256, 21845, -2731, 20479, 21844,  3941,     0
  722. 8210 DATA      0, 28656, 21845, 17509, 21572, 21845,   -10,     0
  723. 8220 DATA      0, 28656, 21845,   -10,    -1, 26223,   -10,     0
  724. 8230 DATA      0, 28671, 26197,    -1,    -1,    -1,    -1,    15
  725.